home *** CD-ROM | disk | FTP | other *** search
- object Form13: TForm13
- Left = 334
- Top = 102
- Width = 665
- Height = 220
- Caption = 'Set Screen Aspect Ratio'
- Color = clBtnFace
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- FormStyle = fsStayOnTop
- OldCreateOrder = True
- OnClose = FormClose
- OnDeactivate = FormDeactivate
- PixelsPerInch = 120
- TextHeight = 16
- object Label1: TLabel
- Left = 47
- Top = 0
- Width = 514
- Height = 16
- Caption =
- 'To be able to display images accurately, Qimage needs to know yo' +
- 'ur screen size'
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label2: TLabel
- Left = 20
- Top = 30
- Width = 601
- Height = 16
- Caption =
- 'Measure the width and height of the viewable area displayed on y' +
- 'our monitor and enter the values below.'
- end
- object Label3: TLabel
- Left = 30
- Top = 49
- Width = 582
- Height = 16
- Caption =
- 'The viewable area includes the entire displayed portion of the s' +
- 'creen, not just this (or other) windows.'
- end
- object Label4: TLabel
- Left = 20
- Top = 69
- Width = 628
- Height = 16
- Caption =
- 'Units are not important as long as you use the same units for bo' +
- 'th the horizontal and vertical measurements.'
- end
- object Label5: TLabel
- Left = 69
- Top = 108
- Width = 145
- Height = 16
- Caption = 'Horizontal measurement:'
- end
- object Label6: TLabel
- Left = 374
- Top = 108
- Width = 131
- Height = 16
- Caption = 'Vertical measurement:'
- end
- object Edit1: TEdit
- Left = 225
- Top = 98
- Width = 70
- Height = 24
- Hint =
- 'Measure (in any units) the width of the entire display area of t' +
- 'he screen and enter the value here.'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- Text = '0.00'
- end
- object Edit2: TEdit
- Left = 512
- Top = 98
- Width = 70
- Height = 24
- Hint =
- 'Measure (in any units) the height of the entire display area of ' +
- 'the screen and enter the value here.'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- Text = '0.00'
- end
- object BitBtn1: TBitBtn
- Left = 128
- Top = 148
- Width = 92
- Height = 30
- Hint =
- 'The above width will be divided by the height to obtain the scre' +
- 'en aspect ratio. This button will save this value for future us' +
- 'e.'
- Caption = 'Save'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- OnClick = BitBtn1Click
- Kind = bkOK
- end
- object BitBtn2: TBitBtn
- Left = 394
- Top = 148
- Width = 92
- Height = 30
- Hint = 'Ignore the above entries.'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 3
- OnClick = BitBtn2Click
- Kind = bkCancel
- end
- end
-